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• Last Name 

• Log On 




Welcome Ed 

The last time you logged on was 2/14/01 6: 1 1:59 PM. 

Choose the section that you want to access by "clicking" 
on one of the options on the top line, then, "click" on the • 
specific item you want by "clicking" on the selections at ! 
die left i 
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AccessDenied 



<%@LANGUAGE=ED3Script%> 



Desktop 



<%Q LANGUAGEgED3Script%> 
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<%QUNGUAGE«ED3Script%: 



DisplayLastLogOn 



<%®LANGUAGEgED3Script%> 



DisplaytastNamq 



<%@LANGUAGEgED3Script%> 



Footer 



<^o@LANGUAGEaED3Scrlpt%> 



Greeting 
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<% @ Langua9egED3Script%> 
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<% 

'turn off page caching in users browser 
Response . Expires=0 
Response . Buf f er^True 



• define session wide variables 

Session<''SecurityDatabase") = "Provider=Microsoft. Jet^OIiBDB.a .Sl;Persist Security 
Info-False; Data Source=e: \indever\data\private\QSec\irity\QSecurity .mdb*' 
Session{"SecurityLog'')="Provider«Microsoft.Jet.OLEDB.3.51;Persist Security 
^ J Inf o=Palse f Data Source«e : \indever \data\private\QSee\irity\QSecurity , log* 

y Session( "QServicesDatabase" ) s"Provider=sMicrosof t Jet .0LEDB*3 , 51; Persist Security 

M Info=False;Data SQurce=e: \indever\da ta\private\QServices \QServices.mdb • 

Ci Session ( " QServicesIiog" ) » " ProvidersMicrosof t . Jet . OLEDB .3.51? Persist Securi ty 

|1.J Inf o«Palse; Data Source=e : \indever\data\private\QServices\QServices . log" 



^3 



Session ( " QPorumDatabase* ) » " ProvidersMicrosof t . Jet • OIiEDB .3.51; Persist Security 
Info«False?Data Source«e: \indever\data\private\QForuxo\QPoruin.indb" 
Session ("QPoruniLog" ) ='Provider=Micro5of t. Jet«OLSDB. 3 .51;Persist Security 
Xn£osFalse;Data Source«e: \indever\data\private\QForum\QForuni.log" 



ftl Session{"QClientDatabaae*)»''Provider«Microsoft, Jet.OLEDB.3.51;Persist Security 
Info=False?Data Source^es \indever\data\private\QClient\QClient ,mdb* 
Session { "QClientLog" ) -"Provider=Microsoft. Jet .OIiEDB. 3 .51; Persist Security 
Xn£o«False;Data Source«e:\indever\data\private\QClient\QClient.log*' 

Sess ion ( " QResourcesDa tabase" ) « " Provider sMicroao ft .Jet . OLEDB .3.51; Persist 
Security InfosFalse;Data 

Source=e: \indev6r\data\private\QResources\QResoarces -radb" 

Session ( "QResourcesLog" ) =*'Provider=Microsoft - Jet .OLEDB .3.51; Persist Security 
Inf OisPalse; Data Source^e : \indever\data\pr ivate\aResources\QResources . log" 

Session! "QCon^etition")*" Provider-Microsoft .Jet. OLEDB. 3. 51 /Persist Security 
InfoaFalseyData Source«e: \indever\data\private\QCompetition\QCon^e tition.mdb" 
Session ( "QCompetitionLog" ) «*Provider=Microsof t . Jet . OLEDB .3.51; Persist Security 
lnfo5=False;Data Source-e: \indever\data\private\QCompetition\QCompetition. log" 

Session ( " QPlanDatabase* ) -'Provider^Microsof t • Jet . OLEDB .3.51; Persist Security 
Inf o«False;Data Source»e: \indever\data\private\QPlan\QPlan.iiidb" 
Session ( "QPlanLog" ) Provider=Microsof t . Jet . OLEDB .3.51; Persist Security 
lnfo?=Palse;Data Source=e: \indever\ data \privat6\QPl2ui\QPlan. log* 

Sess ion ( "QManageDatabase" ) ^•'Provider^Microsoft .Jet .OLEDB .3.51; Persist Security 
Info»False;Data Source«e: \indever\data\private^^ QManage\QManage .mdb" 
Session < "QManageLog* ) = " Provider-Microsoft . Jet . OLEDB .3.51; Persist Security 
Inf o^Palse; Data Source=e: \indever\data\private\QManage\QManage. log* 

set qlog a server. createobject ( "qlib. qlog" ) 



Dim qweb, qreport 
diin sOutput 



dim sResult 
dim sFileName 



select case Re<3uest . Form ( "QWebAct ion" ) 
case "Login" 

'Display Login _ 

Sess ion ( "QWebMemberlD" ) =:Request .Porm( "ID" ) 

Session ( "QWefaMember Pas sword* ) ^Request * Fona( * Password* ) 

Session ( "SecuritylD" ) ^Request .Form{ " Identity ) 

'qlog. entry M" & Session{ "QWebMemfaerlD" ) & ") - Logging In..*, 
Session ( " Securi tyLog" ) 

set QReport = Server - Cr eateob j ect ( "Qlib.QReport" ) 

sResult a QReport. Pui5lishPage( _ — 

Session ( "SecurityDa t abase" ) , _ 

"SELECT * FROM Security WHERE ID = ' * &; Request. Fom{ "ID" ) & 
Password - & Request .Form! "Password") & AND SecuritylD^" & 
Request . Form( • Identity" ) , . 

Session ( "SecurityDatabase" ) . _ 

"SELECT ♦ FROM Templates WHERE TemplatelD » 'Desktop'", _ 
"Template" * ^ 

IF sResult a THEN 

sResult = QReport. PublishPage{ _ 

Session ( * SecurityDatabase * ) , ^ 

"SELECT * FROM Dummy", _ 
Session { " SecurityDatabase " ) , . 

"SELECT * FROK Templates WHERE TemplatelD = 'AccessDenied* " , 
"Template" , _ 

Response .Write (sResult ) 

ELSE 

Response. Write (SResult) 
END IF 

set QReport * nothing 

end select 

set qlog = nothing 



%> 
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<% 

**** has user session been validated? 
*if Session ("QWebMemberlD") « NUliL then 

* Response • Redirect * login . htm * 
•end if 

'turn off page caching in users browser 
Response . £xpires=^0 
Response • Buf £er»True 

set qlog s server.createobject{*qlil>.qlog") 
Dim gweb« qreport 

dim sOutput ' 

dim sResult 
Jl- dim sFileltone 
J^J dim dothing 

^yl Execute on Recordesetless SQL Command on the Database *** 

Function ExecuteS0L2 ( SQL) 

rfl. dim cn 



open a database connection 
set cn - Server. CreateObject("ADODB, Connection") 
cn . open Session ( " SecurityDatabase" } 



^^ »*★* execute sql command 

m 



cn. Execute SQL 

•*** close connection 

cn. Close 

set cn = nothing 

End Function 

Set dothingasRequest.QuearyStringC'QWebAction") 
select case dothing 

case "ViewPage* 
'View Page 

set QReport = Server.Createobject ("Qlib.QReport") 

sResult a QReport. PublishPage( _ 
Session ( "Securi tyDat abase" ) , _ 

-SELECT * FROM " & Request .QuerySt ring ( "QWT" ) & • WHERE " & 
Request. QueryString("QWF") & " = " & Request .QueryString( •*QWFVM & ORDER BY 
& Reques t* Query StringC'QWS'') 

SessionCSecurityDatabase") , _ 

"SELECT * FROM Ten^lates. WHERE TemplatelD & 
Request.QueryStringCQWeblD") & "'",. 

"Template". _ 



- - J 

Response .write (sResult) 
set QReport * nothing 
case "Greeting" 

•Greeting _ 

set QReport - Server.CreateobjectCQlib.QReporf) 

SResult = QReport. PublishPage( _ 
SessionCSecurityDatabase"). _ „ ^ SecurtCyID=" & 

•«!Pr.ECT » FROM " & Request. Querystring I uwi i "„._,, , . _ . & 
SEi-fcUi rn^u" oeauest.QueryString("QWF") & - & 

Request. QueryStringCQWebID') & — 

"Template", _ 
• ■ ) 

Response .Write (sResult) 

■""S^utSu VpSaTE security SET LastLogOn - *' * NowO . -# WHERE 
SecuritylD-" & Session("SecurityID") 
set QReport - nothing 

case " PersonalDesktop " 
* PersonalDesktop 

set QReport » Server. Createobject I "Qlib. QReport") 

SResult - QReport. PublishPage{ _ 
Session rsecurityDatabase"). securicylD"" & Sessiont "SecuritylD") 

"SELECT * FROM UserDesktops WHERE security 
> - MID statu..' Active • ORDER BY SORTTIEUJ-,- 

"Teiaplate" , _ 

Response . Write ( sResult ) 

set QReport - nothing 
end select 

set qlog « nothing 

%> 



